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PROGRAMACAO EM C6dIG0 DE MAQUINA 

Para programarjogos, e fundamental conhecer c6- 
digo de maquina e, particularmente, a linguagem 
Assembler 1 

PROGRAMACAO DC J060S 

* 

ANIMApAO E SINAIS GRAFICOS 

Produzaseuspr6prios"desenhosanimados", traba- 
Ihando com caracteres gr^ficos 3 



NUMEROS AO ACASO 

Muitos programas de jogos sao criados segundo a 
f6rmula dos numeros aleatorios. Veja como isso 
aconteceeaprendaausarvariaveiseafazercompa- 
racoes IF... THEN 10 



ESCREVA CARTAS SEM ESFORCO 

Como produzir cartas em serie, ao mesmo tempo pa- 
dronizadas.e personalizadas 17 




PLANODAOBRA 

"INPUT" e uma obra editada em fasciculos semanais, e cada 
conjuntode 15 fascicules compoe um volume. A capa paraenca- 
dernagao de cada volume estari a venda oportunamente. 

COXfPLETE SUA COLEgAO 

Exemplares atrasados, ate seis meses apos o encerramento da cole^ao, poderao 
ser comprados, a pre^os atualizados, da seguinte forma: 1. Pessoalmenle — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo endereto po- 
dera ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
Sao Paulo os endere?os sao: Rua Brigadeiro Tobias, 773 (Centro); Av. Industrial, 
1 1 7 (Santo Andre); e, no Riode Janeiro; Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderao ser soHcitados exemplares atrasados tambeiti por carta, que deve 
ser enviada para DINAR — Distribuidor Nacional de Publica?6es — Numeros 
Atrasados — Estrada Veiha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco ~ Sao Paulo. 3. Por telex — Utilize o n? (01 1) 33670 ABSA. Em Portu- 
gal, OS pedidos devem ser feitos a Distribuidora Jardim de Publica^oes Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarale— Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Nao envie pagamento antecipado. O atendimento sera feito pelo reembolso postal 
e o pagamento, incluindo as despesas postals, deverd ser efetuado ao se retirar 
a encomenda na Agenda do Correio. Alenfao: Ap6s seis meses do encerramento 
da coleipio, os pedidos serao atendidos, dependendo da disponibilidade de es- 
toque. Obs.: Quando pedir livros, mencione sempreo titulo e/ou o autor da obra, 
alem do niimero da edi^ao. 

COLABORE CONOSCO 

Encaminheseuscomentarios, criticas, sugestoes ou reclamagoes 
ao Servigo de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo ~SP. 
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QUE E CODIGO DE MADUINA? 



CODIGO DE MAQUIINA 



WNTAGEMS EU R ELAQAO AD BASIC. 
COMO COMPREENDER CODIGO DE 



OPERAQAO E IIMGUAGEM ASSEMBLER. 




Utilizado na programacao de jagos, 
codigo de maquina proporciana 
uma acao rapida e contirtua. 
Antes de emprega-lo, por^m, voce 
deve saber coma ele afeta 
desempenho do seu computador. 

O BASIC constitui sem duvida a mais 
difundida c popular linguagem de pro- 
gramacao. Ufii versa) mente conhecido, 
cle e facil de aprender e pode ser adap- 
lado a diferentes maqutnas, Seus pro- 
gramas, contudo, ocupam grandes espa- 
cos de memoria e permiiem apenas um 
movimento de cada vez. Assim, se um 
canhao atira, num jogo de guerra, o res- 
10 da agao tern que esperar, mesmo que 
seja per uma fracao de segundo. 

O BASIC usa palavras da linguagem 
humana, tiradas do ingles, e opera(;oes 
semelhanies as da aritmetica, faceis de 
compreender, Mas seu computador nao 
pensa em ingles nem entende os simbo- 
los aritmeticos. Ele opera baseado em 
impulses eletricos que representam nii- 
meros. E essa conversao e a causa de sua 
lentidao ao trabalhar com o BASIC, 

Codigo de maquina e uma linguagem 
computacional composta apenas de nii- 
meros equivalentes aqueles que o com- 
putador utiliza. Assim, quando voce 
emprega esse c6digo nao deve esperar 
que o computador responda em lingua- 
gem humana. 

Consideremos um exemplo extraido 
dos compuiadores compati'veis com o 
Sinclair Spectrum; o codigo de maqui- 
na se parecera com isio: 

B9 28 08 

Em BASIC o equivaiente e: 

100 IF A-C THEN GOTO 190 

O codigo de maquina consiste, desse 
modo, numa s^rie de mjmeros de dois 
digitos. A letra B da linha acima e, na 
realidade, um simbolo. Ela representa 
onumero 11, em notapao hexadecimal. 

Esses numeros hexadccimais sao in- 
trodiizidos na mem6ria do computador. 
lnstru<;6es de opera«;ao, dados, ntime- 
ros, letras, palavras e enderefos de me- 
moria sao representados por sinais de 
dois digitos. E o computador ideniifica 



a diferenga emre essas intorma(;6es pe- 
la ordem em que eles ocorrcm no pro- 
grama. Por exemplo, o primciro niime- 
ro cm qualquer programa precisa repre- 
sentar uma instru(;ao. Se, por cngano, 
voce digitar um ni'imero qualquer nesse 
ponto, represcntando um dado ou um 
endere(;o de algum dado, o computador 
tentara interpreta-lo como uma instru- 
qao valida, A digiia;;ao desscs mimeros 
exige, portanto, uma precisao absoluia; 
caso contrario, o programa nao funcio- 
nara. 



VANTAGENS 00 C6DIG0 OE MAQUINA 



Quando voce digita uma linha cm 
BASIC, o compuiador teni que iranspo- 
la para sua propria linguagem, antes de 
execuia-la. Esie 6 um processo trabalho- 
so que toma muito tempo, pois uma ins- 
tru^ao em BASIC raramenie e traduzi- 
da para um s6 comando ou declaracao 
em codigo de maquina. Ela resuUa, com 
frequencia, em varies c6digos de ope- 
ra i;ao. 



Quando .se executa um programa 
completo cscrito em BASIC, cada linha 
tern que ser inlerprctada sequcncialmen- 
te. O computador nao armazena os re- 
sultados dessa iradm;ao; se a mesma li- 
nha for executada novamente, o com- 
putador terd que intcrpreta-la outra vez. 

Sempre que o computador encontra 
uma instru^ao em BASIC, executa as se- 
guintes larefas: 

• reconheccr a insiru^ao em BASIC; 

• traduzir essa instru^ao para uma sd- 
rie de ouiras em codigo de maquina; 

• executar as instrupoes, uma a uma; 

• passar para a prdxima linha do pro- 
grama em BASIC. 

Repetido muitas vezes, esse proces- 
so torna-se lento e moroso. E possivel, 
porem, compilar um programs em BA- 
SIC, isto e, iraduzi-lo iniegralmente pa- 
ra codigo dc maquina, de uma s6 vez, 
antes de executa-lo, armazenando a tra- i 
du^ao. A compilatjao e mais eficiente 



que a interpretai;ao, mas os programas 
resuliantes sao ainda bastanle Icntos. 

Em contrapaj-tida, a iradu(;ao do 
programa em codigo de maquina dire- 
tamenie para a opera(;ao interna do 
computador quase nao consome tempo. 
Nesse caso, ha uma simples conversao 
de uni numero em outro, e nao a iradu- 
?ao de urn comando de lingaagem em 
varios outros de codigo de maquina. Os 
programas tornam-se, assim, mais cur- 
tos e eficientes. 

Os programas abaixo fazem a mes- 
ma coisa, usando BASIC e codigo de 
miquina. Compare suas velocidades re- 
lativas. 



Q 



10 CLEAR 200,31000 

20 DEFllSRO-31000 

30 FOB N=31000 TO 31015 

40 EtEAD A 

50 POKE N,A 

60 NEXT 

70 CLSO 

60 PRINT 60."rST0 ESTA EM BASIC 

ft 

90 FOB N-1 TO 500: NEXT 

lOO FOR N-1056 TO 1535 

110 POKE N, PEEK (N+ 34000) 

120 NEXT 

130 FOR N-1 TO 1000: NEXT 

140 CLSO 

150 PRINT eO,"ISTO ESTA EM CODI 

GO DE MAOUINA." 

160 FOR N-1 TO 1000;NEXT 

170 N>=USHO{0) 

180 FOR N-1 TO 2000:NEXT 

190 DATA 206,136,240.142,4,32.1 

66,192, 167,126,140,6,0,38, 24 7.5 

7 
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Aiencao: o programa abaixo esia es- 
crito em BASIC para computadores 
com o sistema DOS (disquete) e nao se- 
ra aceito peio BASIC nivel II normal 
(cassete). 

Ao ligar a maquina, responda com o 
numero 60000 k pergunta "Mem.usa- 
da?", ou ainda "Memory size?" (para 
computadores com 48 Kbytes de memo- 
ria apenas). 



10 CLS 

20 DEFUSR0--4536 

30 FOR N=-4356 TO -4523 

40 READ A 

50 POKE N,A 

60 NEXT N 

70 CLS 

80 PRINT "ISTO ESTA EM BASIC" 

90 FOR 1=1 TO 500:NEXT 

100 FOR N-15360 TO 16363 

UO POKE N.65 
|120 NEXT N 
1 130 FOR N-1 TO 1000: NEXT 



140 CLS 

150 PRINT "ISTO ESTA' EM LIN- 

GUAGEM DE MAQUINA" 
160 FOR N=l TO lOOOlNEXT 
170 N=U5R0 (0) 
180 FOR 1=1 TO 2000:NEXT 
190 DATA 33,0,60,17,1,60,1,255, 

3,54,65,237,176,201 



10 CLEAR 29999 

20 FOR n-30000 TO 30011 

30 READ a 

40 POKE n.a 

50 NEXT n 

60 PRINT "l3to eata em BASIC" 

70 FOR n-16384 TO 22527 

80 POKE n.FEEK (n-16384) 

90 NEXT n 

100 CLS 

110 PRINT "lato esta em Codigo 

de Maquina" 
120 PAUSE 100 
130 RAND USE 30000 
140 STOP 

150 DATA 33,0,0,17,0,64,1,0,24 
,237,176,201 
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10 CLEAfl200,LHDFFF 

20 DEFINTA-Z 

30 AD»«.HEO0O:DEFUSE-AD 

40 FOR I-OTOIO 

50 READAS 

60 POKE AD+I,VAL("I.H''+A$) 

70 NEXT 

60 DATAOE , 96 , ED , 6B , , 1 , 06 , FF , ED 

,B3,C9 

90 CLS 

100 PRINT 'isto eata em basic" 

110 FOR l-l TO 1000:NEXT 

120 SCREEN 2 

130 PSET (CO) 

140 FOR I-l TO 6144 

150 OUT 152,RND(1)*255 

160 NEXT I 

170 CLS 

180 SCREEN 

190 PHINT"Isto eata em cddiqo d 

e oidquina" 

200 FOR I-O TO 1000;NEXT 

210 SCREEN Z 

220 PSET(0,0) 

230 FOR I-l TO 25 

240 A-USR(B) 

250 NEXT 

260 GOT0260 
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5 HGR : HOME : VTAB 24 

10 FOR I - 800 TO 836 

15 READ N 

20 POKE I,N 

25 NEXT 

30 PRINT "Isto eata em BASIC 

35 FOR I - 1 TO 300: NEXT 

40 FOR I - aiOO TO 14000 

45 POKE I-, RND (1) * 256 



50 NEXT 

55 TEXT : HGR : HOME : VTAB 24 
: PRINT "Isto eata em linguagen 
de maquina" 
60 FOR I - 1 TO 3000: NEXT 
65 CALL 800 

70 DATA 169,0,133,20,133,22,1 
69,32 

80 DATA 133,21,169,193,133,23 
,160,255 

90 DATA 177.22,145,20.136,208 
,249.165 

100 DATA 21,201,63,208,1,96.2 
30,21,230.23,76,46.3 

Como voce vai ver, ludo que o pro- 
grama Taz e encher a tela de caractercs 
ao acaso ("Hxo", na giria dos progra- 
madores). Entretanto, a velocidade com 
que a versao em linguagem de maquina 
faz isso e incomparavelmente maior do 
que a do programa em BASIC. 



LINGUAGEM ASSEMBLEfl 



A grandc dificuldade do codigo d« 
maquina surge quando se quer escreve- 
lo ou depura-lo de erros. Poiicas pessoas 
conseguem lembrar-se de todos os c6- 
digos numericos c instru<;6es. Para com- 
plicar ainda mais, os codigos de opera- 
fao (opcodes) nao sao distinguiveis dos 
outros ntimeros que aiimentam o com- 
putador. Assim, voce nao consegue en- 
tender um trecho de programa, a nao ser 
que o acompanhe desde o comei;o — o 
que nao ajuda quando se esta procuran- 
do erros no programa. 

Os e6digos numericos de opera^ao, 
alem disso, diferem consideravelmente 
enire si, conforme microprocessador 
que e u.sado no computador, de modo 
que Iraduzir programas em codigo de 
maquina de um tipo de computador pa- 
ra outro pode ser bastante dificil. 

Uma forma dc contornar esses obs- 
taculos e subir um pouco mais de nivel, 
e cscrever o prograina em uma lingua- 
gem mais i'acil de se utilizar do que o c6- 




digo de mdquina. Essa linguagem e co- 
nhecida como Assembly, ou linguagem 
Assembler (que vem do ingles, monta- 
gem). 

Em Assembler, os codigos operacio- 
nais sao representados por abreviagoes 
mnemonicas (isto e, faceis de lembrar). 
Por exemplo, a operavao de carregar 
{load, em ingles) uma memoria com um 
numero, tern a abreviatura LD. Uma 
instruijao de dcsvio (j ump) pode ser cha- 
mada de J, JP, ou JMP, conforme a sin- 
taxe do Assembler em uso. Com algum 
treiro, e possivel ler programas em As- 
sembly tao facilmente quanio em BA- 
SIC, embora entende-Ios seja algo mais 
complicado. 

A desvantagem da linguagem Assem- 
bler e que o computador nao pode uii- 
liza-la diretamente, como no caso do 
codigo de maquina. Antes disso, o pro- 
grama precisa ser montado per um As- 
sembler, ou tradutor, que e um outro 
programa escrito em linguagem de mA- 
quina, ou mesmo em BASIC 

Mas o processo de moniagem e bem 
mais simples, quando comparado com 
a interpretacao de linhas em BASIC. A 
linguagem Assembler e equivalente ao 
codigo de maquina, ou seja, cada ins- 
trugao em Assembly corresponde a uma 
instruvao em c6digo de maquina. As- 
sim, a tradugao do programa se proces- 
sa palavra por pala\'ra, numero por 
numero, etc. diretamente para codigo de 
maquina. 

Assembler tambem traduz o pro- 
grama como um lodo, antes que o com- 
putador o execute, ao inves de 
interpreta-lo Hnha por linha, enquanto 




programa esta rodando. Isto da van- 
tagens adicionais de velocidade de exe- 
cugao. 

Alguns computadores, como o Ap- 
ple 11, ja vem com um programa embu- 
tido, chamado monitor, que permite a 
entrada de codigos de maquina e dados 
cm hexadecimal. Computadores com 
programas Assembler embutidos em sua 
ROM, entretanto, ji sao mais raros. No 
Brasil, o TK-20O0, da Microdigilat, e um 
exemplo. Para os outros computadores 
(linha TRS-80, TRS-Color, MSX, Sin- 
clair Spectrum e ZX-81), existem pro- 
gramas Assembler dispor>iveis 
comercialmente, em fita ou disquete. 
Voce podera uiilizar tambem, as versoes 
de Assembler para cada maquina, que 
serao fornecidas mais adiante. 

Mas, se voce nao tern acesso a um 
'programa Assembler, pode fazer uma 
montagem manual. Mesmo para os pro- 
gramas mais simples, e mais facil escre- 
ve-Ios em Assembly, e depois traduzi-los 
manualmente para codigo de maquina 
em hexadecimal, usandoas tabelas for- 
necidas com os manuals de prograina- 
cao Assembler. 

Tudo isto pode pareccr muito abor- 
recido; mas, antes de decidir que e isso 
mesmo, experimente esses programas 
em codigo de maquina. Eles sao intro- 
duzidos via declaracoes DATA em pro- 
gramas BASIC. Os dados ( DATA) es- 
tao listados no fim de cada programa. 

D 

10 CLEAR 200, 31000 

20 DEFUSRO=31000 

30 FOR N-31000 TO 31020 

40 READ A 

SO POKE N,A 

60 NEXT 

70 N-USROCO) 

80 POKE 32767, R(JD(256)-1 

90 FOR N-1 TO 100; NEXT 

lOO GOTO 70 

110 DATA 142,4,0,206.136,184.16 

6,192,164.12 7.255,138,129.167,1 

28,140.6.0,38,242,57 



As restri^oes na configuragao da ma- 
quina para rodar o programa abaixo sao 
as mesmas do primeiro programa. 

70 DEFUSRO- 4536 
30 FOR N--4536 TO -4!i7,5 
4 HEAD A 
50 POKE N,A 
60 NKJCT N 
70 N-USRCO) 
80 POKE -4534,RND(20) 
90 GOTO 70 

100 DATA 33,0,0.17,0,60,1,0,4. 
237,176.201 



10 CLEAR 29999 

20 FOR n-30000 TO 30020 

30 READ a 

40 POKE n.a 

50 NEXT n 

60 RAND USR 30000 

70 GOTO 60 

80 DATA 17,0,88.46.0.23 7.95. 

71,58.140.92,128.230.63.10 3,1 

,0.3,237.176.201 
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10 CLEAH200,S.HDFFF 

20 DEFINTA-Z 

30 AD-S.HEOO0;DEFUSR-AD 

40 FOR I-OTOIO 

50 READAS 

60 POKE AD+I,VAI,("«.H"+AS) 

70 NEXT 

80 DATAOE , 98 , ED, 68 , , 1 , 06 , FF , ED 

.B3.C9 

90 FOR 1=0 TO 1000:NEXT 

100 SCREEN 3 

110 PSET(0,0) 

120 A-USR(B) 

130 GOTO 120 

200 FOR I-O TO 1000:NEXT 

210 SCREEN 3 

220 PSET(O.O) 

240 A-USR(B) 

260 GOTO 240 
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Um aviso para quern for utilizar o 
programa aciina: o programa em lingua- 
gem de maquina altera alguns endere- 
gos importantes da memoria de traba- 
Iho do micro, Por isso, e impossivel 
tista-lo depois de rodar uma vez, Assim, 
voce deve digitar o programa e grava- 
lo em fita ou disquete, antes de rodi-lo. 

Para rodar no TK.-2000, e necessario 
fazer as seguintes modificafoes: todos 
OS valores 17, que aparecem dentro das 
declarapoes DATA, devem ser mudados 
para 20, e todos os valores 18, para 21. 

Deslc modo ele nao se autodestroi. 



10 


FOB 1 


- 3 


00 


TO i 


)40 






20 


BEAD 


M 












30 


POKE 


I.N 












40 


NEXT 














50 


GR 














60 


CALL 


800 












70 


DATA 


169 


,0 


133 


17, 


169 


193, 


133 


.18,160 












80 


DATA 


40, 


16; 


.40 


177 


.17 


41,1 


5,32,100 















90 DATA 248,138,32,0.248.136. 

208,242,202 

100 DATA 208.239.169,254.197. 

18,208,1.96,230,18,76,40,3 

Agora, apenas para comparar, tente 
escrever um programa similar em BA- 
SIC. Acreditamos que voce entendera 
nossas razoes. E mais tarde, veremos o 
que acontece aquj. 
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Se voce quer dar mais vida aos seus 
jogos, comece a trabalhar 
com OS caracteres graf icos mais 
simples, que ja vem programados na 
memdria do seu computador. 



Programar jogos pode se revelai uma 
atividade fascinanie. Mas nao e certa- 
mente das mais f^ceis. Por isso, voce de- 
ve come(;ar com coisas simples e ir avan- 
fando pouco a pouco. Esse procedimen- 
to Ihe ensinara a pensar de maneira 16- 
gica, melhorando suas qualidades de 
programador. E o que vamos aprender 
nesta serie de lifoes, ate chegar ao de- 
senvolvimento de jogos profissionais e 
complexos, 

A primeira coisa que vocS precisa 
aprender para programar jogos, afora 
a linguagem BASIC, e a tecntea de ani- 
macao, pois a maioria dos jogos mais 
interessantes e do tipo "videogame", is- 
to e, tem algum tipo de agSo. 

Para criar a ilusao de movimento, o 
programador usa praticamente as mes- 
mas tecnicas empregadas na elaboracao 
de desenhos animados. Ele cria duas ou 
mais imagens e as aiterna rapidamente 
— cerca de 24 vezes por segundo. 

Existe, porem, uma diferencja impor- 
tante. Na anima^ao de urn desenho, o 
projetor e responsavel pela eliminagao 
das imagens desnecessarias. O mesmo 
nao acontece com a animagao por com- 
putador: neste caso, quaiquer segmen- 
to de um desenho que voce "projete" 
permanecera na tela, a nao ser que vo- 
ce imprima atguma coisa sobre ele, pois 
o computador nao pode colocar, simul- 
taneamente. duas imagens na mesma 
posiijao. 

Por exemploj se a linha 10 diz ao 
computador para colocar um A em um 
determinado lugar, quaiquer linha im- 
pressa posteriormente — digamos um B 
— , no mesmo local, apagara o A. 

Mas, e se nao houver nada que voce 
queira imprimir no lugar do caractere 
indesejado? Entao voce deve se lembrar 
de incluir no seu programs uma linha 
que coloque um espago em branco na 
posiv'ao de interesse. Caso isso nao seja 
feito, seu video logo estard repleto de in- 
comodos pedagos de bragos, pernas e 
corpos! 

Ha grandes diferengas entre os com- 
putadores na maneira de se obter os ca- 
racteres (sinais) graficos na tela. Os ca- 
racteres graficos padronizados variam 
muito em tipo e disposigao, assim como 
I a maneira como sao impresses na tela, 
' e como sao movimentados. 



Uma animagao muito simplefc., que 
ilustra os principles da produgao de efei- 
tos de movimentagao na tela do micro, 
e a do pequeno "inseto rastejante" (ve- 
ja abaixo). Nas paginas seguintes mos- 
traremos como conseguir esse efeito pa- 
ra diversos tipos de computadores. 
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Para criar a figura do inseto na tela, 
programe o TRS-Color ou corapative! 
{por exemplo, o Prologica CP-400), co- 
mo segue abaixo. A declaragao PRINT 
@ (pronuncia-se "print arroba" ou 
"print em") e a maneira que o BASIC 
do Color tem para exibir um ou varios 
caracleres em um ponto especifico da te- 
la. O niJmero que se segue apos o sinal 
@ (^ a posi(;ao na tela, que comega de 
0, no canto superior direito, e aumenta 
de um em um da esquerda para direita 
e de cima para baixo. Como a tela do 
Color tem apetias 32 colunas, a primei- 
ra linha tem posifoes @ indo de a 31. 
A posigao 32 ja se situa na primeira co- 
luna da segunda linha e assim por 
diante. 
5 CLS 

10 PRINT 8238, "000" 
20 PRINT 6206.-)))" 
30 PRINT #241, "<" 
40 PRINT €2 70, "J))" 

Este programa e uma forma bast an- 
te elaborada de criar uma imagem mui- 
to simples, mas ele ilustra alguns pon- 
tos interessantes: 

Em primeiro lugar, ele Ihe da uma 
ideia a respeito das posigoes relativas na 
tela, O meio do inseto esta, aproxima- 
damenie, no cenlro do video, na locali- 
zagao 239. Como voce ve, estamos usan- 
do caracteres "normais" (isto e, dispo- 
niveis no proprio teclado padrao, como 
a letra O, o sinal de parSnteses, etc.) pa- 
ra compor a figura do "bicho". 

Alem disso, ele mostra o que acon- 
tece quando fazemos com que o com- 
putador imprima mais que um caracte- 
re cm uma unica posigao de tela — ele 
simplesmente vai em frente e coloca os 
proximos caracteres nas posigoes subse- 
qiientes fde numeragao maior). Jsto ex- 



plica por que as "antenas" da linha 30 
estao em 241 . As posigoes 238-240 ja es- 
tao ocupadas pelo corpo do inseto. 

Existe uma maneira melhor de dese- 
nhar o inseto, que e condensar o pro- 
grama acima em uma unica linha. E, se 
voce ainda nao descobriu, o TRS-Color 
tem uma abreviagao para PRINT: o ca- 
ractere "?". Quando o programa ^ lis- 
tado, a maquina mostrara PRINT ao in- 
ves de '*?". 

O programa simplificado fica assim: 

20 PRINT @2 38."000<" rPHlNT €206 
,'))) ":PHINT §270,")))" 

Se voce acrescentar mais duas linhas, 
obterd alguma animagao: 

) ) ) ) ) ) ) ) J J ) ' 

OOO < OOO < OOO < OO': 

3 1) ) ) 3 3 M > ) ' 

20 PRINT €238. "000<": PRINT §206 
," ( ( r :PRINT §270, " ( [ C 
30 GOTO 10 

A execugao deste programa produz 
uma imagem tremida e pouco nitida que 
nko se parece nem um pouco com ani- 
magao, A razao disso e que as imagens 
estao sendo trocadas rapido demais. Se 
voce inserir um lago FOR. ..NEXT no 
programa, ele fara com que o compu- 
tador pare e conte, deixando a anima- 
gao mais clara. Quaiquer mimero pode 
ser u.sado com os lagos FOR...NEXT(li- 
nhas 15 e 25} e nao apenas 15. Outros 
mimeros resultarao em uma espera 
maior ou menor. 

Experimenie adicionar estas linhas: 

IS FOR L=l TO 15 
17 NEXT L 
25 FOB L-1 TO 15 
2 7 NEXT L 

Agora voce tem um inseto que esper- 
neia ineessantemente, um tanto sem ra- 
zao; apesar disso, a tela nos mostra uma 
animagao convinccnte. 



GRAFICOS DE BAIXA RESOLUCAO 



Voce pode usar os caracteres graficos 
de baixa resolugao do seu computador 
para criar figuras animadas mais inte- 
ressantes, O Manual do Usuario mos- 
tra quais sao esses caracteres. Cada um 
deles tem um codigo (um valor de 128 



PROGKAMACAODEJOGOS 




MOVIMENTE AS FIGURAS NO VIDEO 



COMONUMDESENHOANIMADO 

APRENOA A USAR 

CARACTERES GRAFICOS 




130 PRINT 03OO,CHaS(137) :PHINT§ 

303,CHR$(143) ;PHINT e305,CHR$Cl 

39)+CHHS(141) 

140 FOR X=l TO 20 

150 NEXT X 

160 GOTO 10 

Nao se preocupe com a linha 10 do 
programa. CLEAR 500 rcserva espa^o 
na tnemoria para as cadeias de caracte- 
res dos codigos CHR$ e CLS. Examine 
OS sinais graficos represent ados pelos co- 
digos apos CHR$ no programa e tente 
en tender como a espagonave foi coiis- 
truida. A instrui;ao ' + CHR$ ( V sig- 
nifica 'PRINT CHR$ ( ) na proxima 
posi?ao de tela'. 



O programa seguinte ulili^a caracte- 

graficos de baixa resoluijao para ani- 

mar um satelite roiatdrio (a fig. 1 mos- 

tra OS dois desenhos que sao alternados 

no programa). 



CLEAR 500: CLS 

PRINT ei?4,CHRS (14 i) *f:HClS(14 
PHINT§17B,CMRS (14J) 
PRINT @206.CHR3 (140) *-CHRS(l3 
^CHR$(141) 



a 143 para os micros da linha TRS- 
Color). Para mostra-los no video voce 
usa a fun?ao CHRS seguida do codigo 
do caractere entre parenteses. 

Por exemplo, para imprimir o carac- 
tere representado pelo codigo 138 no 
meio da tela, digite: 

10 PRINTS 239, CHaS(138) 



^DiiilHG 
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Como construir o seu satelite. 



40 PRINT §2J6,CHHS(137)+(JHH$a2 

9)+CHHS{129)+CHB$(129)+CllRS(129 

)+CHH$ [129)+CHR5(141) 

50 PRINT e268,CHR3 (135) +CHR$(13 

2)+CHR$(132)+CHRS(132)+CHH$(132 

)+CHR3(133)+CHR3(135) 

60 PRINT 6300,CHH$(143) :PRINTeJ 

03,CHRStl33) .PRINT @305,CHa5(14 

3)+CHRS(143) 

70 FOR X=l TO ZO 

80 NEXT X: 

90 PRINT ei73.CHRS(141) :PRINTei 

77,CHRS(14n 

100 PRINT #205,CHRS(139)+CHR$(1 

40)+CHRS (140) +CHRS (137) 

110 PRINT e236,CHHS(138)+CHHS{l 

30 ) +CHRS ( 1 30) 't-CHRS (130) +CHRS (1 3 

0)+CHR$<130)+CHB$(143) 

120 PRINT 6268, CHRS (1 39) +CHRS(1 

26) +CHRS ( 136) +CHHS (136) +CKRS (13 

6)+CHR$(137)+CHR$(143) 



022 



" : PRINT 
e256+N,'' 
( ( {" : PRINT #22 

izse+N.Mf (" 



" : PRINT 
e256+N,'' 



e2 



MOVEMENTO 



Eis aqui o programa que anima o in- 
set o, movendo-o pela tela: 

10 CLS 

20 FOR N=0 TO 28 

30 PRINT 91924-1^,")) ) ":PRINT ^22 

4+N,"000<" : PRINT e256+N. ") ) ) " 

40 FOR X=l TO 10 

50 NEXT X 

60 PRINT ei92+N, 

4+N , " " : PRINT 

70 PRINT @192+N, 

4+N, "O00<" : PRINT 

60 FOR X=l TO 10 

90 NEXT X 

100 PRINT ei92+N. 

24+N," ': PRINT 

110 NEXT N 

120 GOTO 20 

Exislem tres lagos FOR. ..NEXT no 

programs. Os dois que utiHzam X dimi- 
nuem a rapidez de impressao fazendo o 
computador contar ate dez; o que usa 
N faz com que o inseto se mova na tela. 

Voce pode nao ter entendido por que 
a linha 20 mostra FOR N = TO 28 se 
existem 32 posi^oes disponiveis em ca- 
da linha da tela. A razao para isso e que 
o inseto tern quatro espatjos de compri- 
mento, e, se houvesse mais que 28 na li- 
nha 20, a antena apareceria no lado 
oposto do video, uma linha abaixo. Is- 
w acontece devido ao modo com que as 
posi?oes de tela sao numeradas. A po- 
si?ao 32, por exempio, e a primeira da 
segunda linha, a partir do tope da tela. 

As linhas 60 e 100 pareccm nao estar 
imprimindo nada; elas sao as linhas I 
"apagadoras" descritas anteriormente.l 



HAMA^DiM 



Para os micros da linha TRS-80 os 
programas acima podem ser modifica- 
dos com facilidade, bastaiido akerar os 
niimeros apos os comandos PRINT @. 
ja que nesses micros unia liniia lem 64 
colunas, ao inves das 32 da linha Color. 

O meio da lela fica mais ou menos 
na posi^ao 450. Subtraindo 64 dessa po- 
sigao temos 386 para a posigao inicial 
das perninhas de cima, e somando 64, 
obtemos 514 (para as perninhas dc bai- 
xo). Finalmenic, 453 nos da a posigao 
das antenas. O programa final Fica 
assim: 



10 


PRINT §450,"000<":PRlNTe386. 




") )) ":PRINT§514, ") ) )" 


15 


FOB L=l TO 15 


17 


NEXT L 


20 


PHINT «'450."0OO<":PBINT#386. 




"(C(":PRINT@514.-' t C C 


25 


FOR L=l TO 15 


27 


NEXT L 


30 


GOTO 10 



TRABALHE COM CARACTERES GRAFICOS 



Estude agora com atenvao tiido o que 
esia dito na seipao sobre o uso de carac- 
teres graficos no TRS-Co!or, Ela se apli- 
ca e.satamente aos micros da linlia 
TRS-80. que tern apenas caracteres gra- 
-ficos de baixa resolu(;ao. 



Os iruques para desciiliar liguras e 
movimenta-las sao iguais aos ensinados 
para o TRS-Color, ou seja, basicamen- 
tc, comando PRINT @, e a fun^ao 
CHR$ usada em conjunlo com o.s codi- 
gos numericos dos caractcres graficos. 

As duas tinicas diferengas sao as se- 
guintes: 

— O conjunto de caracleres graficos 
do TRS-80 e hem maior, pois cobre os 
cbdigos de 129 a 191 . Cada caractere e 
a combinagao de sas potuos em uma 
grade de tres de altura por dois de lar- 
gura (o TRS-Color possui caracleres 
graficos em uma grade de 2 x 2, ou se- 
ja, com combina^oes de quatro pontos 
por caractere). 

— Como dissemos acima, o numero 
de posi(,'6es @ na lela tambem e maior: 
1024 (dezesseis linhas de 64 colunas 
cada). 

Os efeitos graficos de baixa resolugao 
no TRS-SO sao polentialmenle mais ri- 
cos e del alh ados do que o Color (com 
apenas uma desvaniagem para o'primci- 
ro: nao podemos escoiher a cor dos ca- 
ractcres graficos no TRS-80, que tcm o 
video monocromatico). 

Experimente fazcr um programa 
igual ao do Color, para tragar o .satelitc 
(combinaQao de varios CHRS), e depois 
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O corredur em dua<i pONi^Hies. 



fa<;a algo mais dificil: antmar um cor- 
redor de maratona. A defiiiiijao da fi- 
gura do corredor em caracteres graficos 
da linha TRS-80 pode ser vista na fig. 2. 
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Abatxo vemos como programar o pe- 
quenci "monstro rastejante" para qua!- 
quer micro da linha Sinclair (por exem- 
plo, o TK-85 ou o TK-90X), Para co- 
mefar, tenie cria-lo tiuma posi(;ao es- 
tatica: 

I PR 

I pa 

I PH 

1 PR 

O programa usa a declarafao PRINT 
AT, que serve para colocar em aigum 
ponto da tela um caractere ou conjunto 
de caractercs. Os numeros que se se- 
guem a declaragao PRINT AT represen- 
tam o numero da linha onde ficara a 
tlgura (que vai de a 21), e o numero 
da coluna {que vai de a 31). Assim, 
PRINT AT 10.6; *'A", por exemplo, 
pede ao computador para escrever a le- 
ira A na posi(;ao definida pela linha 10 
e peia coluna 6 da (ela (um quadricula- 
do imaginario, como em um jogo de 
'baiaJha naval'). 

Ele mostra o efeito de ordenar ao 
computador que imprima mais que um 
caractere numa mesma posi^ao da tela: 
ele simplesmente avarn;a c imprime os 
caracicres seguintes nas posifoes vizi- 
nhas. Esia e a razao pela qua! as "ante- 
nas" do inseto na linha 40 estao em 
10,18. As localizaijoes 10,15; 10,16 e 



10,17 ja estao ocupadas pelo corpo do 
inseto. 

Uma maneira mais conveniente de 
compor o inseto consiste em conden.'iar 
as instrugoes acima em uma linica linha; 
desta forma (s6 vale para o TK-90X): 

10 PRINT AT 10,15;"000<";AT 9 
,15;")))";AT 11,15:")))" 

Adicione agora mais duas linhas e vo- 
ce tera animagao: 

20 PRIMT AT lU,15;"000<"iAT 9 
,15;" (((";AT 11.15;"! EC 
30 GOTO 10 

Quando executar esse programa, vo- 
ce vera que ele produz uma imagem 
pouco nitida. Isso acontece porque as 
imagens sao trocadas muito rapi- 
dameiite. 

A melhor maneira de desacelerar o 
processo e usar um la(;o FOR... NEXT 
que I'az com que o computador conte ate 
dez (ou qualquer outro numero que vo- 
ce queira). Antes de imprimir a imagein 
seguinte. Experimentc, entao, adicionar 
e-stas linhas ao seu programa (no TK-85 
use 2 ao inves de 10); 

15 FOB L-1 TO 10 
17 NEXT L 
25 FOR M-1 TO 10 
27 NEXT M 

Voce pode variar a duragao da pau- 
sa simplesmeme mudando '1 TO 10' pa- 



ra '1 TO 5' ou '1 TO 20'. por exemplo. 
O inseto criado ate agora pode pare- 
cer iniitil e estupido, pois esperneia co- 
mo louco mas nao se move. Mais 
adiante veremos como essa situagao se 
modi Pica (segao MOVIMENTO). 



COMO ANIMAR UMA FIGURA 



Uma animafao mais interessante po- 
de ser produzida utilizando os caracte- 
res graficos padrao da linha Sinclair. Te- 
mos um exemplo na fig. 2. 

O programa completo e dado mais 
abaixo; no entanto, se voce nao esta ha- 
bituado ao.v simbolos graficos, sera in- 
teressante criar, inicialmente, uma figu- 
ra estatica, compondo uma linha de ca- 
da vez, deste modo: 

1 PHINT AT 5,15;"0" 

2 PRINT AT 6,14:' 

... e assim por dianie. 

Encontrar esses caracteres graficos e 
relativamente facil. Para obter aqueles 
da linha 2 acima, por exemplo, tecle 
CAPS SHIFT (SHIFT no TK-85) e 9. 
simultaneamente. Isso o coloca no mo- 
do grafico indicado pelo G piscando na 
tela. Entao, no TK-90X. pressione 
CAPS SHIFT e 6 juntos para obter uma 
versao invenida — preto no lugar do 
branco — do simbolo da tecia 6; depois 
CAPS SHIFT e 8 e 6 sozinhos. No 



AiuA 



|r« 



^ 



\Tl PR06UMA(iODlJ060S r1| 



II 



TK-85 pressione SHIFT e T; SHIFT e 
SPACE; SHIFT e Y. Finalmente, tecle 

9 para deixar o modo grdfico antes de 
inserir as aspas no fim da linha. 

Aqui temos o programa completo pa- 
ra formar a figura; 

10 PRINT AT 5,14;-L_'0J"iAT 6, 
14;"/B"y";AT 7.14;'[iBl?"i 

AT 8. 14; -a -'PI" 

20 PRINT AT 5, 14; -Don"; AT 6, 

14iV»H"jAT 7.14;"\Bt"l-; 

AT 8, 14;"Pn|U" 

30 GOTO 10 

£ possfvel que voce sinta necessida- 
de de inserir novamente um la(;o 
FOR.. .NEXT depois da iinha 10 e ou- 
tro apos a linha 20 para desaceierar a 
acao. 
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Um dan^arina fdto de doze quadrinhos. 



MOVIMENTO 



Agora que voce ja sabe animar uma 
figura, podemos passar ao programa 
que faz com que ela se mova pelo video: 

10 FOR N-0 TO 27 

20 PRINT AT 10,N;"OOO<" ;AT 9, 

N:"({(":AT ll,N;-({(- 

30 PRINT AT 10, N;" " ; AT 9, 

N;- -;AT 11, N;" 

40 PRINT AT 10,N; '000<" ;AT 9, 

N;")))"iAT H,N;") ))" 

50 PRINT AT 10,N;-OOO<";AT 9. 

N;" ";AT11,N;' 

60 NEXT N 

70 GOTO 10 

Este programa tambem usa um lapo 
FOR. ..NEXT, porem com uma finali- 
dade compietamente diferente da do 
exempio acima. La o computador fazia 
uma contagem, por fra^oes de segundo, 
antes de imprimir uma imagem. Agora 
ele e responsavel pela movimentapao da 
imagem, que assume uma posifao de ca- 
da vez na superficie da tela. 

E por que a linha 10 mostra "O TO 
27", se a teia do Sinclair lem, no total, 
32posigoes? Para descobrir, modifique 
a linha 10 para; 

10 FOE N=0 TO 32 

Outra diivida pode ser em relagao as 
linhas 30 e 50. Experimenie apaga-las e 
voce logo descobrira sua utilidade. 



O programa que movimenta a "tatu- 
rana*' usa exatamente os mesmos carac- 
teres que os outros computadores. O 
que muda e o comando para posiciona- 
lo, que nos computadores da linha MSX 
(por exempio o HotBit, da Sharp) rece- 
be o nome de LOCATE. Esse comando 
posiciona o cursor sobre a tela, em uma 
posigao definida pelos dois numeros que 
se seguem ao comando LOCATE. O 
primeiro niimero refere-se a colima, e o 
segundo, a linha. Assim, por exempio, 
LOCATE 12,4 coloca o cursor na colu- 
na 12 e na linha 4. Qualquer comando 
PRINT que seja dado apos isto escre- 
vera o caractere (ou caracteres) a pardr 
da posi<;ao definida pelo LOCATE. 
Agora, digite o programa: 

6 CLS 

10 LOCATE 18, 10: PRINT "OOO" 

20 LOCATE 18, 9: PRINT ")))" 

30 LOCATE 21, 10: PRINT "<" 

40 LOCATE 18, 11: PRINT "}))" 

42 FOR I-l TO 30 

47 NEXT I 

50 LOCATE 18, 10: PRINT "000" 

60 LOCATE 18. 9: PRINT "(((" 

70 LOCATE 21, 10: PRINT "<" 

60 LOCATE 18, 11: PRINT "(((" 

82 FOR I-l TO 30 

87 NEXT I 

90 GOTO 10 

Quando o programa e executado, vo- 
c6 pode observar a figura do "inseto" 
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vibrando rapidamente. Ela e criada pe- 
la sobreposi(;ao dos dois conjuntos de 
caracieres, que estao nas linhas com o 
comando PRINT, Ao mesmo tempo, o 
comando GOTO, na ultima linha, faz 
com que o programa se repita indefini- 
damenie, pois retorna sempre ao seu ini- 
cio. 

O movimento das patinhas da "ta- 
turana" e bastante veloz, e quase nao da 
para perceber o efeito da animafao. Por 
isto, precisamos dar um jeito para dimi- 
nuir a velocidade. A maneira mais facil 
de se fazer isto e utilizarmos a declara- 
?ao FOR... NEXT, que cria um la^o de 
repeti^ao 'no vazio', isto e, apenas pa- 
ra gastar um pouco de tempo (explica- 
remos na proxima ligao de programai;ao 
BASIC como se usa este tipo de lafo), 

Assim, introduza a llnha: 



45 FOB T-=l TO 100 



NEXT 



A seguir, rode o programa e observe 
como efeito de movimenta^ao das pa- 
tas tornou-se muito mais lento. Isso foi 
possivei porque o lafo criado na linha 
45 funciona como um contador — nes- 
te caso, contando ate 100, quando en- 
tao, ao terminar a contagem. prossegui- 
ra executando o programa a partir da li- 
nha 50. 

Pode-se variar a duragao dessa pau- 
sa simplesmente mudando-se o mimero 
100 para outro qualquer. Quanto maior 
for esse valor numerico, maior sera o re- 
tardo de tempo provocado. 



IMAGENS EM MOVIMENTO 



O proximo passo e alterar o progra- 
ma de forma que o corpo do inseto se 
movimente pela tela. Para isto, utiliza- 
mos a dcclaragao LOCATE, ja descrita. 

Neste caso, usaremos uma variavel 
para fazer com que a fun^ao LOCATE 
mude continuamente a posi^ao do cur- 
sor, de modo que os PRINT'S que pro- 
duzem a imagem deem a impressao de 
deslocamenio. Para fazer variar o valor 
desta variavel que afeta o LOCATE, 
usamos um outro laijo FOR. ..NEXT 
mais externo aquele que anima o bichi- 
nho: 



10 FOR N-0 TO 36 




20 LOCATE N, 15: PRINT ''000<" 


30 [.OCATE N 


14:PBINT "({(" 


40 LOCATE N 


16: PRINT "(((" 


50 LOCATE N 


15:PBINT " 


60 LOCATE N 


14: PRINT " * 


70 LOCATE N 


16: PRINT ■ 


r ,t 


80 LOCATE N 


15:PBINT "000<" 


90 LOCATE N 


14: PRINT ')))" 


100 LOCATE N.16:PRINT 


")}}" 


110 LOCATE N, 15: PRINT 


*t 


120 LOCATE N, 14: PRINT 


II ir 


130 LOCATE N, 16: PRINT 


♦P *r 


140 NEXT N 







O que fizemos foi simplesmente tro- 
car o comando GOTO na linha 90 do 
programa anterior pelos comandos 
FOR... NEXT, que aumentam de um em 



um o valor da variavel P, cada vez que 
o programa se repete, Como Pe argu- 
mento da instru?ao LOCATE (indexan- 
do o ntimero de linha, ou o eixo X), is- 
to faz a figura se movimentar um passo 
para a direila, a cada cicio do programa. 

As linhas 50, 60, 70, 1 10, 120 e 130 
apagam as posigoes antigas do inseto. 
Retire-as e veja o que acontece. 

Quando voce roda o programa, o in- 
seto atravessa a tela e para em sua mar- 
gem direita. Para faze-lo voltar a origem 
e come^ar o "passeio" novamente, ex- 
perimente digitar a .seguinte linha adi- 
cional ao programa acima: 

160 GOTO 10 



COMOCHEGARAOSCARACTERESGRAFICOS 



Os computadores da linha MSX tem 
um grande conjunto de caracteres gri- 
ficos a disposiijao do programador do- 
rado de instinto exploratorio, Eles sao 
digitados a partir do proprio teclado, e 
pod em ser usados para criar figuras e 
desenhos mais elaborados. 

Para ter acesso a estes caracteres, vo- 
ce deve utilizar as teclas GRAPH. CO- 
DE e SHIFT, juntamente com as demais 
teclas do teclado. No manual do seu 
computador podem ser encontradas 
"mapas" do teclado, que indicam as le 





i:las associaiias a cada caractere grafico 
existent e. 

Agora, tente digitar alguns caracte- 
res grdficos. O simbolo de espadas do 
baraiho, por exemplo, pode ser obtido 
pressionando-se as leclas GRAPH e (^ 
icediiha). O simbolo do naipe de ouro 
pode ser obtido pressionancto-se as te- 
clas SHIFT, GRAPH e C simulta- 
neamente. 

O programa abaixo faz a aniinafao 
grafica de um helicoptero visto de cima. 
demonstrando como podem ser usados 
OS caracteres grdficos dos MSX. 

b CLS 

5: PRINT " 

6: PRINT 

7: PRINT 

8: PR INT " 

9: PRINT •* 

lO^PRINT 



Os possuidores de micros compativeis 
com a linha Apple II e derivados, bem 
como OS que tern um Microdigitai 
TK-200O, podem rodar os mesmos pro- 
gramas listados acima para os micros da 
linha MSX. Algumas modifica*;6es, po- 
rcm, devem ser feitas, fac'C as diferen- 
tas dos modelos: 

• todos o.s comandoH CLS {usados 
para limpar a tela) devem ser substitui- 
dos pelo comando equivalente HOME. 



10 

20 

JO 

4 0- 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 



LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCA', - 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
GOTO 10 



13 

13 

13. 

13, 

13. 

13, 

13, 

13. 

13, 

13 

13 

13 

13 

U 

13 

13 

13 

13 



\ 



\ 



11 

12 
13 
,5 
,6 
,7 
,8 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
9;PaiNT 
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12: 
13: 



PRINT 
PRINT 
PRINT 
PRINT 
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CoiiKi ('(iMHiruir urn lK'lk'opt(.'ni. 

• nos micros da linha Apple nao ha 
a instrugao LOCATE, mas ela pode ser 
substituida por duas oulras, que sao 
HTAB e VTAB (tabulagao horizontal e 
vertical, respect ivamente). 

Essas duas fun<;6es controlam o po- 
sicionamento horizontal e vertical do 
cursor, antes de dar um PRINT. O co- 
mando HTAB e acompanhado de um 
niimcro entre I e 40, que determina aco- 
luna de posicionamento; ja o comando 
VTAB faz o mesmo com a linha (de 1 
a 21). 

Assim, por exemplo, onde esta escri- 
Lo, no programa para o MSX: 

20 HTAB 18: VTAB 10: PRINT "000" 

substitua por: 

20 LOCATE 18, 10: PRINT "000" 

O programa do helicoptero nao po- 
de ser introduzido em micros da linha 
Apple, pois esles nao possuem caracte- 
res graficos. O mesmo nao acontece com 
o TK-2()00. cujos caracteres estao dis- 
poniveis at raves do teclado, ao se pres- 
sionar as teclas < CONTROL > e B. 
simukaneamente, ou por meio da fun- 
gao CHRS (442), atraves de programa. 
Consulte o manual do TK-2000 e iden- 
tifique os codigos dos caracteres usados 
ncsse programa. 

Se voce quiser inventar novas figuras, 
basla usar os graficos da tabela existen- 
te no manual ou o.s caracteres padrani- 
zados do teclado, ou os dois juntos. Ca- 
so sou compulador seja diferente dos 
mencionados acima, proceda da seguin- 
te maneira: desenhe as figuras em papel 
quadriculado e t'aga seu proprio progra- 
ma, utilizando os caracteres graficos dis- 
poniveis no seu computador. 






A FUNCAO RMD 

COMOSAO'CRIADOSNUMEROS 



ALEATQRIOS 



APRENDA A USAR VARIAVEIS 



A DECLARACAO INPUT 



_CaMRARA£OES COIVl IF ... THEN 

DOIS JOGQS DE ADIVINHA CAO 

PARA VOCE PROGRAMAR 

FAtXAS DE GERACAD 



DE NUMEROS ALEATORIOS 



Pense em um niimero ao acaso: e assjrn, 

aleatoriamente, que muitDS 

jogos saa criados pelo cDrnputadar. 

Ningiiem aprende a jogar lutL-hol 
praiicando apenas uma jogada de cada 
vez, para so ontrar luima partida qiian- 
do lodos OS lances posstveis estiveieni 
assimilados. Se alguem escollicssc fsse 
metodo, (eria de esperar a vida imeira, 
pois o nijmero de jogadas possiveis e 
praticamcnte infiniio. 

O mesmo, telizmente, nao acontecc 
com a programai,'ao de computadorcs, 
que pode ser aprcndida de iiiodo gra- 
dual. Assim, OS manuals que acompa- 
nhatn os computadores ensinam uma 
funt^ao ou comaiido dc cada vcz. Voce 
pode aprender por ele, se quiser. Mas a 
forma mais diverlida dc fazcr is>so e co- 
me^ar a jogar desde o comedo, apren- 
dencio na pralica. 

O jogo mais t'acii de ser prugramado 
em um micro domeslico e aqucle cm que 
o computador "invetita" um numero 
aleatorio (ao acasoj, e o jogador tenta 
adivinha-lo. 



A FUNCAO RND 



Os compuiadore<> domesiiccs teiTi um 
gerador de numeros aleatorios (ou ran- 
domicos) que permitc invcntar jogos. 
Ele e operado, em BASIC, pela I'uncao 
RND, Em alguns computadores, en- 
tretanto, os numeros produzidos nao 
sao muito iiteis na sua forma original 
— sao todos fra»;oes decimals entre e 
0.99999999. Para verificar isso, digiic 
este programa, teclando primeiramenie 
NEW para limpar da memoria qualquer 
programa ja existente: 



10 LET X-RND(O) 
20 PRINT X 
30 GOTO 10 



10 LET X-RND 
20 PRINT X 
30 GOTO 10 




[EElPi.^ 



10 
20 
JO 



LET X ' 
PS INT X 
GOTO 10 



RND (1) 



(Lembre-se de teclar < ENTER > ou 
< RETURN > - depcndendo do seu com- 
putador - ap6s cada linha do programa.) 

Quando voce cxccuiar esse programa 
(use comaiido RUN), vai obter uma se- 
qiiencia de longos numeros decimals, 
muito distante de um jogo de adivinha- 
v'ao {para saber por que e assim, veja o 
quadro Pergunias e Respostas na pagi- 
na 13). 

Entao, como conseguir que o compu- 
tador produza somente mjmeros imei- 
ros? A resposta e muito simples: adicio- 



iiando a fun<;ao INT (uma abreviacao 
da palavra inglesa integer, que quer di- 
zer imeiro) a esias linhas. 



10 LET X,-INT (RND*6) 



10 LET X - 
20 PRINT X 
30 GOTO 10 



INT ( BND (1) * 6) 



isso vai gerar numeros inteiros entre 
e 5. Nos computadores da linha 
TRS-80, nao e precise milizar a fungao 
INT, pois a fun(;ao RND a realiza se re- 
ceber um numero inteiro positive como | 
argumenlo: 



DD 



10 LET X=RND(6)-1 
20 PRINT X 
30 GOTO 10 

(Lembre-sc wmpre de pressionar 
<RETUR,N> ou < ENTER > aposdi- 
gnar cada linha.) 

Qualquer que seja o compuiador que 
estiver usando, voce nao esta limiiado 
a trabalhar com niimeros entre e 5, po- 
dendo escoiher igualmenie 10 ou 10 000 
como niimero maximo: o computador 
sempre sorteara um vaior compreendi- 
do entre e o numero maximo es- 
colhido. 



INPUT G 

Agora que o computador tomou co- 
nhecimcnto do seu palpite, pode com- 
para-lo com o numero secreto gerado 
(que esta guardado na variavel X). Isso 
e feito de uma forma muito simples, 
equivalente k frase: 

SE X=G ENTXOESCREVA "MUITO BEMl" 

Em programapao BASIC fica assim: 



[i][^rKViDa5! 



IF X'« THEN PRINT 'MlltTO HflM! 



LISTAGEM 00 PROGRAMA 



Agora digite o programa abaixo (o si- 
nal < > significa "e maior que e me- 
nor que" ou diferente de): 



DQ 



20 LET K-RND(6>-1 
30 PRINT "0 COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE E 5. VOCE PO 
DE ADIVINHA-LO?" 
40 INPUT 

60 IF G-X THEN PRINT "MUITO BEM 
1"ELSE PRINT "QUE A2AR - VOCE E 
RROU ! " 



APRENDA A USAR VARIAVEIS 



Ao escrever o programa acima, alem 
de selecionar um mimero aleatorio, vo- 
ce deu um nome a ele (X). Dai em dian- 
te, no programa, toda vcz que o X for 
colocado, o computador "sabera" que 
voce se refere aquele numero aleatorio. 

Esse nome, que permite ao compu- 
tador identificar um valor, de tal for- 
ma que possa compara-lo com ouiro 
mimero, fizer operai;oes aritmeiicas 
com ele, etc., e chamado de variavel ■ A 
variavel corresponde, grosso modo, ao 
rotulo de uma caixiiilia individual na 
menioria do computador, onde armaze- 
namos valores. 



A DECLARAgAO INPUT 



Em nosso joguinho, ap6s ter gerado 
o numero aleatorio. o passo seguinte se- 
ra avisar o computador de modo a faze- 
lo aceitar seu palpite. Para isso, voce dc- 
ve utilizar a declaravao INPUT. Ela diz 
ao computador para Hear esperando aie 
que alguma informacao teiiha sido di- 
giiada pela pessoa que esta usando o 
programa. 

A dcciaravao INPUT sozinha, entre- 
tanto, Tiao tern sentido. Precisamos I'or- 
necer ao computador um nome de va- 
riavel para que ele saiba como identifi- 
car o dado a ser digitado e armazenar 
seu valor na memoria. Vamos supor 
que queremos entrar um dado na varia- 
vel G (de guess, ou palpite, em ingles). 
Poderia ser perfeitamentc um outro no- 
me qualquer, envolvendo uma ou mais 
letras combinada.'i, tal como PALPITE, 
se voce achar interessanle. 

Assim, a declaracao completa fica da 
maneira como segue (nao a digite 
ainda): 



A declarai;ao IF ... THEN, sem dii- 
vida. e muito uiil. Voce vai usa-la mui- 
tas vezes na programa(;:ao. 




A funvao do eiiriinr e moslrar, na tela, 

I) liiial onde aparecerd n ciiracrtre 

presie^ a i«er di^iiado. No I'umpufadur 

acima, ek' se resiimr a um 

pequfno sinal de .^ublinha que apareee 

na linha ainda nan preenehida. 

Km uutros cttmputadtirev, enireianiit. 

L-ie pode ser um pequeno relangulu eheiu. 



Of. micros das linhas TRS-80, TRS- 
Color e MSX tern uma extensao a cssa 
declaragao que e o IF ... THF^N ... EL- 
SE {era bom portugues, SE ... ENTAO 
... SENAO). Neste caso, o programa- 
dor pede para o computador fazcr aigu- 
ma coisa a mais, caso a condiijao de teste 
(por excmplo, se os tuimeros sao iguais) 
nao seja satisfeita. Nos computadores 
que nao tem a declara^:ao ELSE — co- 
mo e o caso dos compaiiveis com a li- 
nha Apple e com as linhas Sinclair 
Z.X-81 e Spectrum — se os dois niime- 
ros nao forem iguais o programa pa.s- 
sara automaticamente para a linha se- 
guinte aquela onde esta o comando IF. 



Para os micros compativeis com o 
ZX-81, digite em maiiisculas. 

20 LET X-INT (RND*6) 

30 PRINT "0 Cofflputador eacolh 

eu um nuinero entre e 5. Ten 

te adivinha-lo, ' 

40 INPUT G 

60 IF G-X THEN PRINT "Muito 

bent' 

eO IF GOX THEN PRINT 'Que 

azar - Voce errou!" 



HJE]^^ 



20 LET X-INT (RND(1)*6) 
30 PRINT"0 Computador escolheu 
un nuinero entre e 5. Tente a 
divinh^-lo. " 
40 INPUT G 

60 IF G-X THEN PRINT "Muito be» 
! " 

80 IF GOX THEN PRINT "Que azar 
- Voc6 errou!" 

Rode este programa e voce vera que 
ja da para jogar, mas ainda nao e mui- 
to divert ido. Para comev'ar, a tela vai fi- 
cando um tanto congestionada e, o que 
e pior, o jogo acaba logo apos a primei- 
ra tentativa! 

Para resotver o primeiro problema, 
voce s6 precisa acrescentar; 

10 CLS 
50 CLS 

10 JIOME 
50 HOME 

A declara^ao CLS quer dizer "limpe 
a tela" {clear screen). Para os compu- 
tadores da linha Apple, a declara<;ao 



equivaleme e HOMK, que significa "vji 
para casa" (no caso, o cursor vai para 
o alto da teia quando csta fica limpa), 
Assim, somente as informagoes novas 
aparecem no video. Lidar com o segun- 
do problema e urn pouco mais dificil. 
Uma forma de resolve-io seria colocar 
um GOTO na linha 90, de modo a rei- 
niciar o jogo aiitomaticaniente. Mas is- 
so faria com que a tela limpasse brus- 
camente, e o jogador nao poderia ver a 
tempo a mensagem: 



HlElWi 



90 fiOTO 



VARlAVEIS ALFANUMERICAS 



Uma maneira melhor e olerecer ao 
jogador a optao de um novo jogo ape- 
nas no caso de ele o desejar. Pode parc- 
cer um pouco complicado, mas, na pra- 
tica, e bastante simples. 

Comece digitando o programa: 



an 



10 CLS 

20 LET X=BND(6)-1 

30 PI INT 'O COMPUTADOR ESCOLHEU 
UM NUMERO ENTBE E 5. VOCE PO 
DE ADIUINHA-LO?" 
40 INPUT G 
50 CLS 

60 IF G-X THEN PRINT "MUITO BEM 
I'ELSE PRINT "QUE AZAH - VOCE E 
RROU ! " 

90 PRINT "yOCE QUER TENTAH OUTH 
A UEZ?" ;PHINT"SE QUISER , DIGITE 
■S' E PRESSIOME<ENTEH>" 
100 INPUT A$ 

no IF AS="S" THEN GOTO 10 
120 GOTO 100 



Para o programa abaixo rodar cor- 
reiamente nos compativeis com o 
ZX-81, digite tudo em maiiisculas e 
siibstitua a linha 1 10 por: 

110 IF AS-"S" THEN GOTO 10 

10 CLS 

20 LET X-INT (HND«6) 

30 PRINT "O Computador escblh 

eu U9 nunero entre e 5. Ten 

te d<?ivinha-lo. " 

40 INPUT 

SO CLS 

60 IF G-X THEN PRINT "Muito 

ben!' 
70 IF G-X THEN GOTO 90 
80 IF GOX THEN PRINT "Que 
azar - Voce errou!" 
90 PRINT "Voce quer tentar ou 
tra ves? Se auiser, digit 
e S e preaaione ENTER' 



100 INPUT AS 

110 IF AS-'S- OR A$- 

GOTO 10 

120 GOTO 100 

HIE] 

10 HOME 
20 LET X 
30 PRINT 

ura nuBiero 
e voce CO 
40 INPUT 
50 HOME 
60 IF G 

bem ! " 
70 IF G 
ue azar ! 
90 PRINT 

? Se quis 
e a tecla 
100 INPUT 
110 IF AS 
120 GOTO 



THEN 



- INT ( RND ID * 6) 
"0 Computador sorteou 

entre e 5. Sera qu 
naegue advinhar 7" 
G 

X THEN PRINT 'Huito 

> X THEN PRINT "* Q 

- Voce errou. " 
"Quer brincar de novo 
er. tecle 'S' e apert 
RETURN.' 

AS 

- "S" THEN GOTO 10 
100 




VctcC' ja dev* tpr-sc pcrguniadn- 
que iiiKniricudo tem a ponliiavao 
ni)s prouramas lie computudoreii. 
Vejannis: us II nil as no lupn da Irlu 
•iiio as inslru^oes dii pro)>ramadi)r: 
as que v«iii a strguir mu>;lram 
(IS rrsultados dv e\ci'uvao 
dessas inslruvtit.*^. Uma vir)>ula, por 
ouiro lado, signilica "labulc"; jS um 
piinto e virgula gucr di/.i>r "jiislapcinha" 
e um aposlrofn no Spectrum 

nil'ica "imprima na pr6\ima linha" 






10 CLS 

20 LET X-INT{HND(1)«6> 

30 PRINT'O Computador eacolheu 

um nunero entre e 5. Tente a 

divinha-lo. " 

40 INPUT G 

50 CLS 

60 IF G-X THEN PRINT "Muito ben 

70 IF G-X THEN GOTO 90 
80 IF GOX THEN PHIWT "Cue azar 
- Voce errou!" 




Como se especHicam os intervaios de 

niimeros aleatorios? 

As funcoes RND nos micros da linha 
Sinclair. RND[1 ) no Apple II, TK-2000 
e MSX, e RND(01 nos compatfveis 
com o TRS-80 e Color, geram nume- 
ros aleatorios distnhuidos entre e 
0.9999999. Se voc6 quiser um nu- 
mero aleatdrio distribuido em uma fai- 
xa maior de nOmeros, mulriplique o 
numero obtido atrav^s das formas 
acima por uma constante. Por exem- 
plo, para obter um numero entre e 
39.99999999, basta multiplicar a saf- 
da da funcao RND por 40. 

Para gerar niimeros inteiros, use a 
funcao INT. Um numero Jnteiro entre 
e 39 6 produzido atrav6s da expressao 
INT Uuncao RND original * 40). Se vo 
ce quiser numeros distribufdos entre 1 
e 40 adicione 1 a expressao anterior. 
Nos micros da linha TRS-80, para ge- 
rar um numero aleat6rio entre 1 e 40, 
use RNDI40)- 

Alguns computadores utilizam as pala- 
vras RAND, RANDOM ou RANDOMI- 
ZE. Para que servem? 

Para evitar a repetigao da seqijen- 
cia de numeros aleatorios gerada pelo 
computador. Os micros da linha 
TRS-80 tem a declarapao RANDOM, e 
OS da ljnhaZX'81. a RAND. Nestes ul- 
timos, RAND 1 (ou RANDOMIZE 1. no 
caso do Sinclair Spectrum e compati- 
veis) assegura que a sequencia aleatd- 
ria seja constante. Quando usamos 
RAND ou RANDOMIZE sem argumen- 
to, ou seguidos de 0, a sequencia nun- 
ca se repete. 



90 PRINT 'Voce quer tentar outr 

a vez? Se quiser. di 

gite S e preasione RETURN' 

100 INPUT AS 

110 IF A$-'S" OH AS-'a" THEN GO 

TO 10 

120 GOTO 100 

Como voce pode notar, primeiro se' 
pergunta ao jogador (linha 90) se ele 
quer jogar novamente. Depois, para avi- 
sar o computador que espere por uma 
resposia, usa-se a declaragao INPUT na 
linha 100. 

Mas, desta vez existe uma difereni^a 
importante. Depois da linha 20, o joga- 
dor deu entrada a um niimero. Agora 
e!c vai entrar um S (para "sim")ou um 
N (para "nao"), ou seja, uma Jetra nao 
e um nimiero. 



i 



Isso significa que, na linha ICX), ao in- 
ves de INPUT A voce dcvera usar IN- 
PUT AS. O cifrao (tambem chamado de 
"dolar"), designa o chamado siring 
(cordao) e A$ e uma variavel aifanume- 
rica (siring variable). 

For que $ e necessario? Para cntcn- 
der isso e precise conhecer a maneira co- 
mo o compuiador armazena dados e tra- 
balha com emradas, o que veremos mais 
adiarte. Por enquanto, o importante e 
lembrar seguinte: quando o computa- 
dor deve esperar um numero, voce usa 
INPUT A. INPUT B, INPUT X ou 
qualquer outra letra; quando se traia de 
utna letra ou palavra, voce deve usar IN- 
PUT A$. INPUT BS. INPUT X$ etc. 

A linha 120 foi incluida de lorma 
que, se o jogador nao deseja outra par- 
lida imediatamenle, o compuiador es- 
pera ate que ele queira, repetindo o pro- 
cesso ate que a resposta scja igual a S. 
isto acontece devido ao retomo constan- 
te a linha KM ate que a tecla S seja pres- 
sionada, quehrando o ciclo. 



VOCE SABE TABU A DA? 



A funifao RND tem centenas de usos 
em programagao. Imagine;, por exem- 
plo, que \'Oce deseje ensinar ao scu fi- 
Iho ou irmao a tabuada do nove. Voce 
poderia fazer o seguinte: 



[EE]^^ 



DQ 



10 PRINT 'QUANTO E 1 VEZES 9?" 

20 INPUT A 

30 IF A-9 THEN PRINT "CORHETO!' 

40 PRINT 'QUANTO E 2 UEZES 9?" 

SO INPUT B 

60 IF B=18 THEN PRINT "CORRETO!" 

Mas, desse jeito, voce teria um pro- 
grama muito longo que nao resolveria 
nem mesmo o problema de como pru- 
ceder se uma das respo.stas estiver erra- 
da! Devemos usar a fun^ao RND, en- 
tao, para produzir um programa que se- 
ja mais compacto e fa(;a as pergunias 
corretamente, em sequencia aieatbria. 
Outra recomenda;;ao importante: iraba- 
ihe primeiro na parte principal do pro- 
grama, deixando os enfeites para de- 
pois. Assim, experimente agora eslas li- 
nhas (lembre-se de dtgitar o comando 
NEW aniesf): 

DQ 

10 LET N='RND(12) 

20 PRINT "QUANTO E " ;Nj " VEZES 

9?" 

30 INPUT A 

40 IF A-N*9 THEN PRINT "CORHETO 



I / 



) :< 



c^) ^\ ^J 

6x9 
5x9 
4^x9 

7l TX SI 



= 6 



Digite tudo o que vem abaixo apenas 
em maiusculas, se for usar um compa- 
livel com ZX-8I: 

10 LET N-INT {HND*12+1} 

20 PRINT 'Quanto e ';N;" veze 

3 97" 

30 INPUT A 

40 IF A-N*9 THEN PRINT "Corr 

etof 



HIE] 



INT ( RND {!) * 12 



10 LET N 

+ 1) 
20 PRINT "QUANTO E ";N; "VEZES 
97" 

30 INPUT A 

40 IF A - N * 9 THEN PRINT "C 
ERTO ! " 




Wi 



10 LET N-INT CRND{-TIME}*12+1) 

20 PRINT "Quanto 6 ";N;" vezes 

9 7" 

30 INPUT A 

40 IF A-N*9 THEN PRINT "Correto 



!^imbulos de compuiador uliMzados «m 

calculos d« uritmeticu elemenlar: 

o asterisco t*K e nan o \, ^ emprejjado 

para andicar mutlipllcav'^*)> 

a barra {/\ fiiKniricu "dividido por"; 

a flechinha para dma indica 

"clevado a polencia de..." (em alguns 

CDmpiiladnres e um sinal circunfleso; 

em oulros, nois asteriscos **). 

Km compcnsa^ao, (is !tinai;i que indicam 

as operavoes de Svumu e 

subtra^ao sao 'iciis veltios conhecidos 

o mais ( + f e o menos ( — ) da 

aritin^lica elementar. 



I 
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Note a funi^ao TIME sendo usada co- 
mo argumento da funvao RIND. Este e 
urn anificio para gerar sempre numeros 
aleatorios diferentcs nos micros da linha 
MSX, poisTIME informa ao computa- 
dor valor do tempo passado, em se- 
gundos, desde que o aparelho toi ligado. 

Este programa usa o gerador RNI) de 
forma semelhante a do jogo de adivi- 
nhaijao. Na linha !0, determina-se uma 
variavei para o niimero aleatorio que o 
computador escolhe. Ela foi chamada 
de N, mas poderia ser outra letra ou pa- 
lavra, desde que I'osse usada sempre da 
mesma forma. Na parte direita da linha 
10, programa diz ao computador pa- 
ra escolher urn niimcro i/iteiro enire I 
e 12. Nos micros da linha Sinclair, e ne- 
cessdrio somar 1, porque seus nilmeros 
aleatorios comegam a partir de zero. 

Na linha 20, pede-se ao jogador que 
multiptique por 9 o niimero que o com- 
putador escolheu desta vez. A linha 40 
diz ao computador para muUiplicar o 
niimero aleatorio por 9 c comparar o re- 
sultado cor" a resposta tlada pelo joga- 
dor (ou akmo). Se esta esliver correta, 
o computador matidara a mensagem de 
"CORRETO!" para a tela. Execute o 
programa e fa(;a-o rodar varias veze.s, 
para ver se funciona. Para que clc repi- 
ta automaticamente as questres, acre-s- 
cente a linha: 

50 GOTO 10 

Mas, pensando melhor, por que nao 
fazemos as coisas de uma forma mais. 
elegante, como se .segue? 



DD 

10 PRINT ' 

7" 



'01 . QUAL E SEU NOME 



20 INPUT AS 

30 CLS 

40 PRINT "OLA. "; AS : PRINT" EU TE 

MHO ALGUMAS PERGUNTAS PAHA VOCE 




50 FOR X-l TO 3000;NEXT X 
60 CLS 

70 LET N-RND(IZ) 

80 PRINT "QUANTO E ";N;" VEZEE 

97" 

90 INPUT A 

100 IF A=N*9 THEN GOTO 150 

110 CLS 

120 PRINT A:"?" 

130 PRINT "TENTE OUTRA VEZ." 

140 GOTO 80 

ISO PRINT -MUITO BEM, "lAS;"!": 

PRINT'AQUI UAI MAIS UMA:" 
160 FOR X=l TO 2000:NEXT X 
1/0 GOTO 60 



90 

100 



GOTO ISO 



Digite tudo o que vem abaixo apenas 
em maiijsculas, se for usar um compa- 
tivei com ZX-8I; 

10 PRINT '01. Qual e aeu nome 
?" 

20 INPUT AS 
30 CLS 

40 PRINT "Ola, ";AS:".","Eu t 
enho algunas perguntas para v 
oce . " 

50 PAUSE 200 
60 CLS 

70 LET N-INT (RND*12)+1 
BO PRINT "Quanto e ";N;" veze 
a 9?" 



INPUT A 

IF A-N*9 THEN 
110 CLS 

120 PRINT Ai" 7" 
130 PRINT "Tente outra vez!" 
140 GOTO 80 

150 PRINT "Huito bea, ',h$;'. 
,'Aqui vai mais una:' 
160 PAUSE ISO 
170 GOTO 60 



HIE] 



10 PRINT "Ola, Qual e o aeu nom 

e?" 

20 INPUT AS 

30 HOKE 

40 PRINT "01 ";AS: PRINT "Eu L 



enho algumaa perguntaa para voc 

e." 

50 FOR X =■ 1 TO 6000: NEXT X 

60 HOME 

70 LET N - INT t RND (1) * 10 

+ 1) 
60 PRINT "Quanto e ";N;" vezea 

9?" 
90 INPUT A 

100 IF A - N * 9 THEN GOTO IS 


110 HOME 
120 PRINT A; ■'?" 
130 PRINT "Errado. Tente outra 

vez" 
140 GOTO SO 

150 PRINT "Muito bem ";AS; PHI 
NT "Aqui vai outra." 
160 FOR X - 1 TO 4000: NEXT X 
170 GOTO 60 



fffi 



10 PRINT "Oi . Qual ^ o seu noroe 

?" 

20 INPUT k$ 

3Q CLS 

40 PRINT "OU. ";ASi"."."Eu ten 

ho algumaa perguntaa para voce : 

SO FOR X-1 TO 2S0O:NEXT X 

60 CLS 

70 LET N-INT{RND!-TIME)*12)+1 

80 PRINT "Quanto 6 "jN;" vezea 

9?" 

90 INPUT A 

100 IF A-N*9 THEN GOTO 150 

110 CLS 

120 PRINT A;"?" 

130 PRINT 'Tente outra vez," 

140 GoToeeo 

ISO PRINT "Multq bem, "iAS;"!", 
"Aqui vai outra:" 
160 FOR x-1 TO 1S00:NEXT X 
170 GOTO 60 

As tinhas 30, 60 e 110 evitam que a 
tela fiquc rcpleta de mcnsagcn.s do tom- 
puiador ou de resposta.*, erradai.. As li- 
nhas 50 e 160 fazem o computador es- 
perar algum tempo antes de t'ormular 
a p^6^ima pergunla. As declara*;oes 
FOR. ..NEXT serao expiicadas na pro- 
xima litao de BASIC, 

No programa para o Sinclair, as vk- 
gulas nas linhas 40 e 1 50 servem para es- 
pa^ar as mensagens na tela. Nos outros 
programas, as dcclaragocs PRINT ex- 
tras fazem o niesmo. Para evitar que o 
programa seja interminavei, faga o se- 
guinte: 




Os niimcros colocado^; no com«^o de 
cada linha do programa sao muito 
imptirtantes, Sum e\cs, o computador 
c:iecutara cada linhu diretamentc 
e de forma wparada, «m vez Av scguir 
o programa como um todo. 
Mesmo que elas sejam inlroduzida^ 
fora dt< ordem, u cutnpuladur as 
colocara na seqiiencia certa (ou seja, 
em urdem ascendente), orientnndo-se 
peUtH numero^ de linha. 
Inlervalos enire as numeros sao 
ulilizados para pcrmitir a inlrodu^ao 
de nuTSs linhas, caso isso 
seja nccessAriu. 



I 
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Pressione a tctia BREAK 



Acione as teclas STOP e ENTER. 



ffiEO 



Pressione as teclas CONTROL e C, si- 
multaneamenie. e depois RETURN. 



m 



Pressione as teclas CONTROL e STOP. 

sitnultancamcntc. IVludando os noves 
do programa para cincos, seis ou setes, 
voce podera testa-lo com outras tabua- 
das, Sera que voce coiiseguiria modifi- 
car o programa para colocar esses nu- 
meros como variaveis, que seriam defi- 
nidas logo no comego por outra decla- 
ragao INPUT? 




Muitas vezes, os iniciaotes encon- 
trgm dif iculdades para interromper um 
programa em execucao e voltar para a 
iistagem. Isso acontece especiaimen- 
te durante uma s^rfe de INPUTs, quan- 
do o computador enche a tela de men- 
sagens, nao importa o que voce digite. 

A seguir, abordaremos alguns pe- 
quenos truques que o ajudarao a sair 
desses aparentes impasses. Nao exis- 
tem problemas sem solugao para 
quem lida com computadores. 



Pressione simultaneamente as te- 
clas CONTROL e SPACE (para acionar 
a fungao BREAK). Se isso nao der re- 
sultado, e porque o programa esta pa- 
rade numa declarapao. INPUT. Neste 
caso, se houver aspas na parte de bat- 
xa da tela, use a tecia de recuo do cur- 
sor e DELETE, para remover as aspas 
^ BSquerda, Depois disso, e se nao hou- 
ver aspas, presstone as teclas STOP e 
ENTER, eacione ENTER de novo, para 
listar o programa automaticamente. 



aiE] 



Voce deve acionar a tecIa CTRL, 
mante-la pressionada e, a seguir, pres- 
sionar a tecIa C. Usaremos a notagao 
CTRL'C para essa operagao, assim co 
mo em qualquer outra ocasiao em que 
duas teclas devam ser acionadas simul- 
taneamente CTRL-C nao funcionar ex- 
perimeote CTRL-RESET. Apos obter na 
tela o 'J', que e o sinai de prontidao, 
digite LIST. 



DD 



Pressione a tecIa BREAK, e de 
pois digite o comando LIST. Se nao 
tuncionar, pressione a tecIa RESET na 
parte de tt&s do computador. 



m 



Acione agora simultaneamente as 
teclas CONTROL e STOP, 



EspecificacSo de faixas 
de numeros aleatorios 

Numeros aleatorios entre e 0.9999999 
Numeros aleatdrios entre e N * 0.99999999 
Numeros ateat6rlos entre -10 e +10 
Numeros aieatdrios entre e 39 
Numeros alestdrios entre 1 e 40 



RND ID 
RND (1)»N 
INTIRND (1) •21)- 
INTIRND m* 40) 
INT(RND(1)*40)+1 
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in? 

RND (0) 
RND (0) *N 
RND 121)-11 

INTIRND (0)*40) 
RND (40) 



RND 
fJ'RND 
INTIRND* 211- 
INTIRND' 40> 
INT(RND*40K1 
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ESCREm CMmS SEM 




COMO EMTRAR D PRDGRAMA 



APRENDA A ADAPTAR D PROGRAMA 



A SUA IMPRESSORA 



DIAGRAft/IACAO DE UMA CARTA 

PAORAO 

MELHDRE SEU TEXTO 
IMPRESSAQ DE COPIAS 



Voce comete erros quando escreve 
cartas importantes? Se isso 
acontece, aqui esta urn programa 
que permits produzir cartas 
padronizadas com copias 
personalizadas para muitas pessoas. 



Escrever um grande niimcro dc car- 
tas similares (por esemplo, pedidos dt- 
emprego, canoes de Natal, etc.) e uma 
tarefa longa e lediosa, quando reali- 
zada manualmente. 

O programa apresentado nesie ani- 
go resolve num instante esse tipo dc 
problema. Ele e um modelo simplifi- 
cado de um editor de lexios, que per- 
mite entrar com uma carta padroni- 
zada no computador e produzir, caso 
necessario, copias ligeiramente diferen- 
tes entre si. Alguns eomputadores pes- 
soais, como os da linha MSX, por 
exemplo, tern recursos para acentua- 
gao correta de textos cm ponugues, 
leiras miniisculas e maiiiiiciilas no te- 
clado c na tela, etc. Ja os eomputa- 
dores compativeis com a linha Sin- 
clair ZX'81 sao bastante dificeis de 



usar com processamento de texias, 
pois dispoem de pouquissimos recur- 
sos para isto. Assim, nao aprcsenla- 
mos aqui uma vers^o para maquinas 
desse lipo, 

Ao contrario de um programa com- 
pleto de processamento de texlos, que 
costuma ser muito complexo e toma- 
ria horas de digitagao para ser colo- 
cado no computador, o programa 
aqui apresentado tern beni menos re- 
cursos. Por exemplo, nao da para ver 
na tela o aspecto final da carta a ser 
imprciiiia. Ma.*; nao se preoeupc, dc 
nao e tao limitado assim: tern recur- 
sos para evitar a divisao de palavras 
ao final de umu Itnlia, inscrir uma 
linha em branco entre dois paragra- 
fos, etc. 

Oualquer tipo de impressora serve 
para produ?.ir as cartas (lemhre-sc, en- 
treianto, que se voce usou acentua- 
i;ao no texto, e necessario que a sua 
impressora seja capaz de reproduzi- 
la, o que nem sempre acontece). Se 
voce qujser uma melhor qualidade de 
impressao, como e o caso de cartasi 
mais "profissionais", vai precisar, evi- 
dentemente, de uma impressora mais 
sofisiicada (e com fita nova!). Esia 
pode ser do tipo matricial, com capa- 
cidade de imprimir em "qualidade car- 



ta" (dupla sensibilidade de pantos), 
ou uma impressora (ou maquina de 
escrever) acoplada ao computador, 
usando o sistema de margarida, ou 
outro. Essas maquinas sao caras, e 
nem todo mundo pode te-!as. Assim, 
talvez voce possa usar a de um ami- 
go ou de seu trabalho. As caracteris- 
ticas das impressoras para micros se- 
rao discutidas em um artigo poste- 
rior. 



COMO "ENTRAR" PROGRAMA 



O programa coiisistededuas partes: o 
programa propriamentc dito.na primei- 
rapartcdalistagem.eotexio da carta, que 
deve ser armazenado no programa. at ra- 
ves de uma seriededeclara^oes DATA. 

Comccc digitando o programa princi- 
pal, lisladoaseguir para cadaiipode ma- 
quina. Nao digite as dec!ara(;oes D.4TA 
presentes no programa. Em seguida, gra- 
ve o programa assim digitado em fita cas- 
seteoudisquete, usando ocomandoSA- 
VK {em alguns eomputadores, esse co- 
mando cliama-se CSAVE): con.sulte o 
manual do computador para ver como 
usa-lo. Assim, o programa gravadopode- 
ra ser usado para qualquer tipo de carta, 
depois.Sevocequiserpreservarema fita 
ou disco o programa contendo algum mo- 
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delo particular de carta, grave-o scpara- 
damcnlc, com outro nomc (programa 
maisdadosj. 

Ames de imprimir sua carta, voce 
deve fazer alguns ajustes, dependendo 
da impressora utilizada, 

Em primciro lugar, verifique quan- 
tos caracteres por linha sua impresso- 
ra aceita (geralmente sao 40, 80, 120 
caracteres por linha). Entao, modifi- 
que o programa de forma a segiiir 
essa largura de linha, permit indo uma 
margem adequada de ambos os la- 
dos. No programa, a variavel TL re- 
presenta o comprimento total dispo- 
nivel na impressora, e LL, o compri- 
mento da linha a ser digitada. Assim, 
voce pode alterar os valores atribui- 
dos no programa a essas varidveis, an- 
tes de imprimir as cartas. 

Q 

Modifique a linha 20 (dando a TL 
o valor da largura de linha disponivel 
na impressora) e a linha 30, de modo 
que o valor de LL contenha a largura 
da linha da carta. Do jcito que esta 
no programa, a linha 40 mo.stra na 
tela como saira a carta, antes de im- 
primi-la. No momento da impressao, 
modifique a variavel P, nessa linha, 
de para 2. 



Modifique a linha 10 de maneira 
que PL seja a largura da impressora, 
e LL, a largura que voce deseja para 
a carta (no exemplo dado, essas lar- 
guras estao muito pequenas para im- 
pressoras mais prof'issionais). 



Nes.se computador nao d^ para im- 
primir a carta primcir'b no video, an- 
tes de manda-la para a impressora, 
a nao ser que voce modifique todas 
as declaragoes tipo LPRINT cxisten- 
tes, para PRINT, e vice-versa. Na ii- 
nha 10, as variaveis PL e LL devem 
ser modificadas conforme a sua im- 
pressora (ou, para impressao em vi- 
deo, para LL = 35 e PL = 40). 
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Modifique a linha 30 de maneira 
que TL e LL conienham as largura.s 
de linha disponiveis na impressora e 
na carta, respectivamente. Se voce qiii- 
ser ver na tela, primeiro, como saira 
a carta, mude o valor de P para 0, 
TL e LI, para 39. 



DIGITE SUA PRIMEIRA CARTA 



Sua carta consistira dc uma serie 
de dcciarav'oes DATA, uma linha de 
texto por declaracao. Digite-as como 
mosirado no exemplo na ultima pagi- 
na deste artigo. 

As instrugoes DATA devem come- 
k;ar na linha 1000 do programa. e cen- 
ter inicialmente o seu enderego. A pri- 
meira tarefa do programa sera procu- 
rar a linha mais longa do cnderet^o, 
e imprimi-lo a direita do cabe(;alho. 
Depois disso, as declaracoes DATA de- 
vcrao conter o texto propriamenie di- 
to da carta. O computador alinhari 
esse texto junto a margem esquerda 
da carta, conforme os pad roes mais 
modernos para carta.s comerciais. 



Cada linha da carta deve comegar 
com aspas, logo apos a deelaracao 
DATA. Alguns simbohs de edigao po- 
dem ser incluidos no texto. Eles tern 
por objctivo orientar a forma estetica 
de impressao. Aqui vai o significado 
de cada simbolo de edi^ao para nos- 
so programa: 

Aqui vai o significado de cada sim- 
bolo de edigao para nosso programa: 

• O simbolo # signifjca: "esta li- 
nha e parte do meu endereco, coloque- 
a do lado direito da pagina". 

• O cifrao, $, quer dizer: "comece 
urn novo paragrafo, deixando uma li- 
nha cm branco acima dele". 

• O Si. comercial (ampersand): "co- 
mece uma nova linha na margem es- 
qucrda, mas nao deixe uma linha em 
branco antes" (cic e litil para compor 
o endere<;o do destinatario da carta). 

• O asterisco (*) significa: "centre 
esta linha". 

Sc voce deseja colocar algumas li- 
nhas em branco indiquc-as com uma 
s^rie de cifroes entre a,spas, um para 
cada linha em branco, Quando voce 
atingir a final da carta, os computa- 
dores do tipo abaixo necessitam de 
uma linha adicional: 

El 

Entre um niimero de linha adicional, 
seguido por DATA S 
Entre outra linha adicional, seguida 
por DATA. 




MELHORANDO SUA CARTA 



Visto que tudo esia cscrito em BA- 
SIC, voce podera, se quiser, gravar 
novamentc o program a, com as dccla- 
ra(|;des DATA incluidas. 

Posleriormenle, se voce quiser me- 
Ihorar a carta, ou produzir utiia nova 
versao, o primeiro passo sera carregar 
o prograina correspondentc, a pariir 
do disco ou cassete (usando o coman- 
do LOAD, ou CLOAD, con forme o 
tipo de computador), e editar o pro- 
grama usando o editor BASIC da for- 
ma habitual. Crave-a novameiiie. se 
quiser preservar essas mudaii<;as. Ca- 
se contrario, (era que redigita-las 
quando carregar o programa original 
novamente. 



tMPRIMINDO AS CARTAS 



Para imprimir sua carta basia exe- 
cutar o programa; ele se encarregara 
dc ativar e desativar a impressora. Se 
voce tentar fazer isso sem que a im- 
pressora csteja coneclada (quando e!a 
esta ligada, a luz que iiidica a conc- 
xao com o computador, nornialmente 
rotulada LINHA ou LINE, permatie- 
ce acesa), o computador ficar^ para- 
do, esperando que a impressora entre 
em funcioiiamento. Neste caso, inter- 
rompa a execufao do programa, pres- 
sionando a tecla BREAK ou sua equi- 
valente. A forma de ver a carta no 
video, antes de imprimi-ia, ja foi in- 
dicada. 

O tipo de papel a ser usado depen- 
de de sua impressora, Algumas acei- 
tam folhas soltas, caso tenham o rolo 
compressor de borracha: essas folhas 
sao melhores para uma corresponden- 
cia mais formal. A maioria das im- 
pressoras, entrelanto, u'sa formulario 
continuo, deslocado pelos picotes na 
margem (rcmalina). Depois dc impres- 
sa a carta, retire as remalinas com 
uma guilhotina ou abrindo os pico- 
tes, acertando com uma tesoura ou 
lamina afiada. 

No caso de utilizar papel timbrado, 
nao e necessario incluir o seu endere- 
<;o na carta. Assim, digite o texlo nor- 
malmenle, comefando da linha 1000, 
mas sem entrar as linhas que come- 
i;am por # . Para imprimir copia.'; 
repetidas da mesma carta, execute o 
programa novamentc, lantas vejes 
quamas forem necessarias. 

Q 

10 CLEAR 200 
20 TL-80 
30 LL-56 



40 P-0 

SO SP-»(TL-LL)/2:HW-'TL/2 

60 PRINT t-P,CHHS(13) 

70 IFP-2 THEN SP$-STRINGS (SP , " 

") ELSE SP=0:HW=16 

200 READAS:AS=AS+" ' 

210 IF AS-'-GOTO 290 

220 OS-LEfTS(A$,l} 

230 IF 0$="#" THEN ML-0:GOSUB 4 

00: GOTO 290 

240 IF 0$="$' THEN RL-0:PRIMT#- 

P,CHRS(13> ;CHRS(13) ;SPS: :ST-2:G 

OTO 280 

250 IF OS^"*" GOSUB800:RL=HW-LE 

N{AS)/2:G0T0 260 

260 IF 0$-"!." THEN RL-0:PRINT|- 

P,CHRS(13} rSPSi ;ST=2:GOT0 280 

270 ST=1 

280 GOSUB 600 

290 GOTO 200 

400 IF LEN{AS)>«L THEN ML=LEN[A 

$) 

410 N-N+1:READ AS: IF LEFT$ f AS , 1 

)-"#" GOTO 400 

420 IF M.L>LL THEN CLS: PRINT "ER 

RO NO FORMATO. ENDEHECO MUITO L 

ONGO PARA TAMANHO DE LINHA 

ESCOLHIDO." :END 

430 RESTORE: FOR J-0 TO N-1:REA 

D AS:PHINTi-P.STRrNGStLL-ML.' " 

) ;SPS; :PHINT#-P,MID(AS-2) ;CHHS( 

13) ; 

440 NEXT:RETUBN 

600 WL=0 

610 IF ST+WL>LEN(AS) THEN 630 

620 IF «rDS(AS,ST+WL,l)<>" ' TH 

EN WL-WL+1:G0T0 610 

630 IF WL>LL THEN CLS:PHINT 'ER 

HO NO FORMATO. . .";AS: PRINT" ... 

CONTEM Unh PALAVRA GRAKDE DEMAl 

Si": END 

640 IF EIL+WL-1>LL THEN PRINT |- 

P,CHR$(13) ;SPS; rRL-0 

650 WL-WL+1 

660 PRINT |-P,MIDS(AS.ST,WL) i :H 

L-RL+LEN{MIDS (A3 , ST, WD ) 

670 ST-ST+WL:IF ST<LEN(AS)+1 GO 

TO 600 

680 RETURN 

600 IF LEN(A$)>LL THEN CLS:PH1N 

T'EHHO NO FORMATO. NAO POSSO 

CENTRAL I Z AH " , AS : END 
810 PRINT #-P,CHR$(13) ; 
820 IF HW>LEN(AS)/2 THEN PRINT 
♦-P,STRING$(HW-LEN(AS)/2, " '); 
830 ST»2: RETURN 
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15 

/2 

20 

30 

40 

50 

60 

>1 

70 

SOO 

80 

700 

85 



LET LL-32: LET PL-32 

LET LL-LL-H: LET T-(PL-LL) 

LET D-0 

READ AS: LET L-LEN AS 

LET C-0 

IF C-L THEN GOTO 30 

LET C-C+1: LET D-D+1 : IF C 

THEN GOTO 100 

IF AS CO -"I' THEN GOTO 

IF A$CC}-"*" THEN GOTO 

IF A$(C)-"i." THEN GOTO 



850 

90 IF AStO-'S" THEN LPRINT 

CHRS 13;CHRS 13;: LET D-0: 

GOTO 900 

95 LET AS-" "-t-AS: LET L-L-H 
100 IF AS<C)-" " THEN GOTO 
600 

110 LPRINT AS(C) 
115 IF D>LL THEN LET D-0 
120 GOTO 5 

500 LET NL-0: LET TA-LL: LET 
BE-0 

510 LET LE-LEN A$-l: IF LE>LL 
THEN PRINT FLASH li"Erro no 
forinato - Endereco muito grdn 
de.": STOP 

520 IF LE>BE THEN LET BE-LE 
530 LET NL«NL+1: READ AS; IF 
AS{l)-"i" THEN GOTO 510 
540 RESTORE 1000 
550 LET TR-T+LL-BE: FOR G-1 TO 
NL: FOR H-1 TO TR ; LPRINT " '; 
: NEXT H: READ AS : LPRINT A${2 

TO ) : NEXT G 
560 GOTO 30 

700 LET TA- (LL-L)/2+T: IF TA<T 
THEN PRINT CHRS 13: PRINT 
FLASH l;"Erro no forinato - Nao 
PO330 cer-tral izar . " : STOP 
710 LPRINT CHRS 13;: FOR n-1 
TO ta; LPRINT " "; : NEXT n: 
LPRINT AS (2 TO L) : GOTO 20 
800 LET EL-LL-D-1: LET CC-C-H : 
LET X-1 

610 IF CC-L THEN GOTO 825 
820 IF AS(CC><>" " THEN LET 
CC-CC+1: LET X-X+1 ; GOTO 610 
825 IF X>-LL THEN PRINT CHRS 
13: PRINT FLASH l;"Erro no Fo 
rmattj - Palavra muito grande.' 
: STOP 

830 IF SL>-X THEN GOTO 110 
650 LPRINT CHRS 13;: LET D-0 
900 FOR B-1 TO T: LPRlNT " ";: 
NEXT B: GOTO 50 



m 



5 CLS 

10 LET LL-35:LET PL-40 

15 LET LL-LL+1:LET PL-(PL-LL)/2 

20 LET D-0 

30 READ AS: LET L-LEN (AS) 

40 LET C-0 

SO IF C-L THEN GOTO 30 

60 LET C-C+1: LET D-D+1: IF Ol T 

HEN GOTO 100 

65 BS-MIDS(A$,C,1) 

66 IF BS-*-" THEN STOP 

70 IF BS-"I" THEN GOTO 500 

80 IF BS-"*" THEN GOTO 700 

85 IF BS-"K^" THEN GOTO 850 

90 IF BS-"S" THEN LPRINT CHflSd 

3):LPRINT CHRS(13):LET D-0:G0TO 

900 
95 LET AS-" -+AS:LET L-L+1 
100 IF MIDS(AS.C,1)-" ' THEN GO 
TO 800 

110 LPRINT MIDS(AS,C,^) ; 
115 IF D>LL THEN LET D-0 
120 GOTO 50 

500 LET NL-0:LET TA-LL: LET BE-0 
510 LET LE-LEN (AS) -1: IF LE>LL T 



19 
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20 



HEN PRINT "ERRO NO FORMATO - En 

derego nuito longo' 

520 IF LE>BE THEN LET BE-LE 

530 LET NL-NL+1:READ AS: IF MIDS 

(AS, C, !)-"♦" THEN GOTO 510 

540 RESTORE 1000 

550 LET TR-T+LL-BE:FOB G-1 TO N 

L:FOR H-1 TO TR:LPRINT " ";:NEX 

T H:READ AS : F-LEN (AS) -1 : LPRINT 

RIGHTS (AS, F) :NEXT G 

560 GOTO 30 

700 LET TA-(LL-L)/2+TrIF TA<T T 

HEN LPBINT CHBS (13) : PRINT 'ERRO 

NO FORMATO - NSo po390 central 
ijar" :STOP 

710 LPRINT CHRS(13):F0R N-1 TO 
TA:LPRINT ' ' : iNEXT N:F-LEN(AS] 
-1: LPRINT RIGHTS (AS, F) ; :GOTO 20 
800 LET SL-LL-D-1:LET CC-C+1:LE 
T X-1 

810 IF CC-L THEN GOTO 825 
820 IF MIDS CAS, CC,1)<>" " THEN 
LET CC-CC+1:LET X-X+1:C0T0 810 
825 IF X>-LL THEN LPRINT CHRS (1 
3) :PaiNT 'ERRO NO FORMATO - Pal 
avra nuito grande':STOP 
830 IF SL>-X THEN GOTO 110 
850 LPRINT CHH$(13):LCT D-0 
900 FOR B-1 TO T:PRINT" " ; : NEXT 

B:GOTO 50 



HJE] 



100 HOME 

110 ONERR GOTO 430 

120 TL - 80:LL - 60 : P 

CHRS (4) 
130 SP = (TL - LL) / 2:HW = TL 
/ 2 
140 
150 
160 
2) 

170 IF A$ - "" THEN 160 
180 OS ' LEFTS (AS.U 
190 IF 0$ - "I" THEN ML - 0: G 
OSUB 260: GOTO 250 
200 IF OS = "S" THRN RL - 0: P 
BINT CHRS (13); CHRS (ll); SPC 
( SP) i :ST = 2; GOTO 240 



PRINT D3;"'PR#":P 
PRINT CHRS (131 
READ AS: AS » AS + 



1:D$ 



CHRS (J 



THEN 
(AS) 



G03UB 40 
/ 2 ; GOTO 



210 IF OS - "*■■ 
0;RL - HW - LEN 

240 
220 IF OS = "I" THEN RL ' 0: P 
RINT CHRS (U); SPC ( SP);:ST - 

2: GOTO 240 
230 ST - 1 
240 GOSUB 310 
250 GOTO 160 
260 IF LEN (A3) 
- LEN (AS) 

270 N - N + 1 : READ AS: 
TS [AS.D • "#" THEN 260 
280 IF ML > LL THEN PRINT DS ; 
"PRIO": HOME : PRINT : PRINT "E 
RRO OE FORMATO! ENDERECO" : PR 
INT -E MUITO LONGO PAHA TAMAN 
HO DA LINHA" : END 
290 RESTORE : FOR J 
READ AS: 
SP ♦- 1) ; 

1) ; CHRS (13) ; 
300 NEXT : RETURN 



> ML THEN ML 



IF LEF 



. TO N: 
PRINT SPC( LL - ML + 
RIGHTS (AS, LEN (AS) - 



;*!>" . 
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310 yL = 

320 IF ST + WL > LEN (AS) THE 

N 340 

330 IF MIDS {AS, ST + WL . 1 ) < 

> " " THEN WL • WL + It GOTO 3 
20 

340 IF WL > LL THEN PRINT D$ ; 
"PRIO": HOME : PRINT "ERRO DE F 
ORMATOJ ": PRINT ASi"--. CONTEM 

UMA PALAVRA MAIOB QUE A LINHA! 
": END 

350 IF RL + WL - 1 > LL THEN 
PRINT CHRS (13); SPC( SP);:HL 
- 
360 UL - WL + 1 






370 PRINT MIDS {A$,ST,WL) ; :RL 
- RL + LEN { MIDS !AS,ST.WL)) 
380 ST - ST + WL: IF ST < LEN 
(AS) + 1 THEN 310 
390 RETURN 

400 IF LEN (AS) > LL THEN PR 
INT D$;"PRIO": HOME ; PRINT "ER 
RO DE FORMATO! NAO SE PODE CENT 
RALIZAR ";AS: END 
410 PRINT CHRS (13) ; 
420 IF H« > LEN (AS) / 2 THEN 

PRINT SPC( HU - LEN (AS) / 
2) :ST - 2: RETURN 

430 PRINT : PRINT DS;"PR#0": E 
ND 
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^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



CODrGO DE MAQUINA 

Sistemas numericos, O sistema decimal e o sistema binario. 
Bits e Bytes. Como o computador faz contas de somar. 

PROGRAMACAO DE JOGOS 

Controle os movimentos da figura na tela. Jogos de guerra 
Dispare seus mfsseis e destma o inimigo! 

PROGRAMACAO BASIC 

A arte de fazer lacos FOR... NEXT. Aprenda a criar efeitos 
sonoros no computador e veja o p6r-do-sol. 
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COtAPU^^ 
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